home *** CD-ROM | disk | FTP | other *** search
/ Publication 5 / Publication_05_19xx_High-Tech_de_Side_A.d64 / signum (.txt) next >
Commodore BASIC  |  2023-02-26  |  1KB  |  37 lines
  1. 1 poke53280,6:poke53281,6
  2. 4 v=53248:poke2040,200:poke198,0:pokev,153:pokev+21,1:pokev+1,125:pokev+39,4
  3. 5 si=54272:pokesi+5,102:pokesi+6,9:pokev+2,44:pokev+3,80:pokesi+24,15:b=12736
  4. 6 r=b+64:print"[147]   welchen buchstaben benoetigen sie?   [144][146]";:b=r
  5. 7 poke19,64:print"[194] [194][157][157][157][145][213][195][201][157][157][157][202][195][203][157][157][145][158]";:inputa$:a=peek(1161)
  6. 8 print:print"[154]":ifa<>32then22
  7. 9 poke198,0:print"[147]geben sie die blocknr. ein200[157][157][157]";
  8. 10 open1,0:input#1,ilo:ifilo=0then52
  9. 11 print"[147]":fori=631to640:pokei,13:next:poke198,10:ilo=ilo*64
  10. 12 kk=0:fori=ilotoilo+62step17:kk=kk+1
  11. 13 ifkk>9then18
  12. 14 printstr$(i);" data";:forj=0to16
  13. 15 i$=right$(str$(peek(i+j)),3)+",":printi$;
  14. 16 if(i+j)=>ilo+62then19
  15. 17 nextj:print"[157] ":nexti
  16. 18 print"ilo="i;":goto 11":print"":end
  17. 19 print"[157] ":print"goto9":end
  18. 22 printtab(12)"[176][195][195][195][195][195][195][195][195][195][174][157][157][157][157][157][157][157][157][157][157][157][194]         [194][157][157][157][157][157][157][157][157][157][157][157][173][195][195][195][195][195][195][195][195][195][189]";
  19. 23 print"[145][157][157][157][157][157][157][157][157][157][157]block";str$(r/64)
  20. 29 goto40
  21. 30 fork=0to16step8:t=0:fore=1to8
  22. 31 t=t+val(mid$(y$,e+k,1))*2^(8-e)
  23. 32 next:poker,t:poker+3,t:poker+6,t:r=r+1:next:r=r+6:next
  24. 33 forr=200to0step-20:pokesi+1,r:pokesi+4,33:fort=1to50::next:pokesi+4,16:next
  25. 34 goto6
  26. 40 p=a*8+53248:poke2040,r/64:fori=ptop+7:gosub46:u=peek(i):gosub48:y$="":d=u:m=128
  27. 41 ifd/m>=1then43
  28. 42 y$=y$+"000":goto44
  29. 43 y$=y$+"111":d=d-m
  30. 44 m=m/2:ifm>=1then41
  31. 45 goto30
  32. 46 poke56334,peek(56334)and254:poke1,peek(1)and251:return
  33. 48 poke1,peek(1)or4:poke56334,peek(56334)or1:return
  34. 52 poke2024,1:poke53280,5:poke53281,5:print""
  35. 53 r=peek(2024):print"[147]":fori=631to640:pokei,13:next:poke198,10:fort=rtor+8:printt:next
  36. 54 print"ifpeek(2024)<40thenpoke2024,peek(2024)+9:goto53":print"":end
  37.